home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
gsdb25.zip
/
DB_XPL16.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-07-30
|
2KB
|
63 lines
program DB_Xpl16;
{$V-}
uses
CRT,
DOS,
GS_Date,
GS_Strng;
var
RealValue : real;
LogicValue : boolean;
DateValue : longint;
LogicString,
RealString,
Str1String,
Str2String,
UniqString,
DateString : string[20];
ZASCII : array[0..20] of char;
i : integer;
begin
ClrScr;
Str1String := ' Smith~John ';
writeln('Original input -->':30,Str1String,'<--');
writeln('UpperCase -->':30,AllCaps(Str1String),'<--');
CnvStrToAsc(Str1String, ZASCII, sizeof(ZASCII));
write('ZASCII String -->':30);
i := 0;
while ZASCII[i] <> #0 do
begin
write(ZASCII[i]);
inc(i);
end;
writeln('<--');
CnvAscToStr(ZASCII, Str2String, i);
writeln('Pascal String from ZASCII -->':30,Str2String,'<--');
Str1String := TrimL(Str1String);
writeln('Trim Leading Spaces -->':30,Str1String,'<--');
Str1String := TrimR(Str1String);
writeln('Trim Trailing Spaces -->':30,Str1String,'<--');
writeln('Substring Chars 3-8 -->':30,SubStr(Str1String,3,6),'<--');
writeln('Flip String at ~ -->':30,Strip_Flip(Str1String),'<--');
writeln('Get Unique Field -->':30,Unique_Field,'<--');
DateString := '02/28/1991';
DateValue := ValDate(DateString);
writeln('Julian Date for 02/28/1991 -->':30,DateValue,'<--');
GS_Date_Century := false;
writeln('Date+90 Days (Century Off) -->':30,StrDate(DateValue+90),'<--');
GS_Date_Century := true;
writeln('Date+90 Days (Century On) -->':30,StrDate(DateValue+90),'<--');
RealValue := 123.456;
writeln('Value 123.456 w/ $ edit -->':30,'$',StrNumber(RealValue,6,2),'<--');
RealString := StrNumber(RealValue + 78.9,9,4);
writeln('String of 123.456 + 78.9 -->':30,RealString,'<--');
writeln('Real of String/2 -->':30,ValNumber(RealString)/2,'<--');
writeln('Formatted String/2 -->':30,ValNumber(RealString)/2:7:4,'<--');
LogicValue := true;
LogicString := StrLogic(LogicValue);
writeln('Logic string for true -->':30,LogicString,'<--');
writeln('Logic boolean for true -->':30,ValLogic(LogicString),'<--');
end.